home *** CD-ROM | disk | FTP | other *** search
-
- (user expert)
-
- (procedure version-to-string #ver ("%ld.%ld" (/ #ver 65536) (bitand #ver 65535)))
-
- ; some information
- (exit "Your configuration!\n\n\n"
- "Installer version: " (version-to-string @installer-version) "\n"
- "InstallerNG version: " (if @installer-ng-version (version-to-string @installer-ng-version) "No") "\n"
- "\n---------------\n\n"
- "CPU: " (database "CPU") "\n"
- "PPC: " (database "PPC") "\n"
- "FPU: " (database "FPU") "\n"
- "MMU: " (database "MMU") "\n"
- "\n"
- "OS version: " (database "os-ver") "\n"
- "\n"
- ("Todays date is %s\nAnd it`s %s o`clock\n" (database "date") (database "time"))
- "\n"
- "free CHIP: " (database "graphics-mem") "\n"
- "free FAST: " (database "fast-mem") "\n"
- "free total: " (database "total-mem") "\n"
- "\n"
- "Chipset: " (database "chiprev") "\n"
- "Graphics System: " (database "gfxsystem") "\n"
- "VBlank: " (database "vblank") "\n"
- "\n"
- "GUI: " (database "gui")
-
- (quiet)
- )
-
- (welcome)
-